home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1991 January
/
1991-01.d64
/
list formatter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
964b
|
31 lines
100 rem copyright 1991 - compute publications intl ltd - all rights reserved
101 poke53280,14:poke53281,6
105 ifpeek(40960)<>148andpeek(45056)<>191then110
106 print"[147][154]setting up c64 mode...":s=828:goto120
110 s=2816:rem relocatable program
111 print"[147][154]setting up c128 mode..."
120 print"list formatter "
130 rem list formatter machine language
140 data 173,7,3,201,81,144,6,169
150 data 203,162,21,208,4,169,81,162
160 data 81,141,6,3,142,7,3,96
170 data 8,201,58,208,26,36,17,48
180 data 22,169,13,32,12,86,162,0
190 data 189,0,1,240,8,169,32,32
200 data 12,86,232,208,243,169,58,201
210 data 143,208,2,133,243,40,234,76
230 rem poke ml starting at addr = s
231 for d=s to s+63:read y:poke d,y:t=t+y:next:remarks are highlighted
290 l=peek(774):poked,l:pokes+14,l
300 h=peek(775):poked+1,h:pokes+16,h
310 m=s+24:l%=m/256
320 pokes+10,l%:pokes+8,m-256*l%
325 ifpeek(40960)=148andpeek(45056)=191thengosub370
330 print:print"on/off: sys"s
335 sys(s):print:print"engaged":print:list231
350 end
360 rem patch c128 code for c64
370 poke828+4,167:pokes+36,71:pokes+37,171:pokes+48,71:pokes+49,171
380 pokes+60,199:pokes+30,15
390 return